home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / source / lib / powerd_lib.lha / PowerD_PPC / HiBit.ass < prev    next >
Text File  |  2000-10-25  |  231b  |  21 lines
  1.  
  2. # HiBit(r3:LONG)(LONG)
  3.  
  4.     .text
  5.     .global    _HiBit
  6.  
  7. _HiBit:
  8.     li    r4,31
  9. .loop:    li    r5,1
  10.     slw    r5,r5,r4
  11.     and.    r0,r3,r5
  12.     bne    .finish
  13.     subi    r4,r4,1
  14.     mr.    r4,r4
  15.     bge    .loop
  16. .finish:    mr    r3,r4
  17.     blr
  18.  
  19.     .type    _HiBit,@function
  20.     .size    _HiBit,$-_HiBit
  21.